TRS-SO® MODEL III 



TINY PASCAL 
USER'S MANUAL 




CAT. NO. 



■% 



TW 



Radio /haek 



SOFTWARE 



CUSTOM MANUFACTURED IN USA BY RADIO SHACK, A DIVISION OF TANDY CORP. 



I 



Tiny Pascal Program: 

©1982 Supersoft Corporation Inc. 

Licensed to Tandy Corporation 

All Rights Reserved. 

Tiny Pascal User's Manual: 

© 1982 Tandy Corporation. 

All Rights Reserved. 

Reproduction or use, without express written permission from 
Tandy Corporation, of any portion of this manual is prohibited. 
While reasonable efforts have been taken in the preparation of 
this manual to assure its accuracy, Tandy Corporation assumes 
no liability resulting from any errors or omissions in this 
manual, or from the use of the information contained herein. 

Please refer to the Software License on the inside front cover of 
this manual for limitations on use and reproduction of this Soft- 
ware package. 

10 987654321 



Model III jpg.QQ ® Tiny Pascal 



Introduction 

Tiny Pascal is a cassette-based program development system. It is 
designed for creating, compiling, and executing Pascal programs. 
Tiny Pascal is a subset of the standard Pascal language* 

To use the Tiny Pascal System, you need: 

TRS-80 Model III with at least 16K of RAM 

Cassette Recorder (We recommend Radio Shack's CTR-80A. ) 

This manual is not intended to teach you Pascal programming, but 
rather to show you how to use Tiny Pascal on your Model III. If 
you need instructions on Pascal programming, we recommend the 
following books: 

Programming in Pascal ; Grogono . Addison-Wesley , 1978 . 

Pascal: User Manual and Report ; Jensen and Wirth. 
Springer-Verlag, 1974 

A Primer on Pascal ; Conway, Gries, and Zimmerman, Winthrop 
Publishers, 1976 . 

Pascal, An Introduction to Methodical Programming ; W. Findlay 
and D.A. Watt. Computer Science Press, 1978. 
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1/ Overview of the System 

Tiny Pascal is a self-contained system for creating, compiling, 
and running Pascal programs on your Model III computer . Once you 
have loaded Tiny Pascal from the cassette, you can use all tnree 
of the "sub-systems": 

Monitor Provides run-time support, checks for errors, and 

provides the necessary utilities for saving programs 
and loading them to and from the cassette tape. 

Compiler Translates your Pascal source program into "p-code" 
which you then can execute through the Monitor. The 
Compiler also checks your source code for syntax 
errors. 

Editor Lets you create or modify Tiny Pascal source 
programs . 

When you load the Tiny Pascal System from the tape, all three 
sub-systems are loaded into RAM. We also have included a sample 
program on the cassette tape. This, too, loads into RAM when you 
load the system. 

If you have a disk drive on your Model III, you can transfer the 
Tiny Pascal program to a diskette. See Appendix E for details. 

Overview of this manual , . 

Chapter 2 shows you how to load the Tiny Pascal System and how to 
create, compile, and run a program. Chapters 3 through 5 discuss 
the three sub-systems in detail— what they do and how to use 
them. Chapter 6 considers the specific aspects, limitations, ana 
enhancements of the Pascal language. 

The appendices contain a list of error codes, syntax diagrams, 
program listings, and other useful information. 
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Terms and Notations 

For clarity and brevity, we often use the following terms and 
notations in this manual: 

<KEYBOARD CHARACTER> 

indicates the key you must press. 

lowercase underline 

represents words, letters, values, or other characters you 

supply. 

UPPER CASE and punctuation 

indicate material that you must enter exactly as it appears 
(unless told otherwise by the text) or material that you see on 
your computer's video display. 
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2/ Starting Up 

In this chapter, we show you step by step how to load the Tiny 
Pascal System, enter the Editor, and run a program. In later 
chapters, we go into detail on each aspect of the System. 

Loading the System ? 

To load the Tiny Pascal System, follow these steps. If you can t 
get the program to load properly, adjust the volume and try 
again. 

1. Turn on your Model III. (If your Model III has a disk 
drive, override the disk startup by holding down <BREAK> and 
pressing the reset button at the same time.) The computer 
displays the prompt, 

Cass? 

2. Answer the prompt by pressing <ENTER>. Basic then asks ^#>u 
for the memory size. Again, respond by pressing <ENTER>. 

3. The computer displays the copyright and the Ready prompt. 
Type SYSTEM <ENTER> to reach the system level. The computer 
prompts you with an asterisk and question mark (*?). 

4. Make sure your Tiny Pascal tape is rewound to the beginning 
of the tape. Then press the PLAY button on the cassette 
player and type PASCAL <ENTER>. 

5. The tape begins to load in memory, and a blinking asterisk 
(*) appears in the upper right hand corner. The load takes 
about a minute-and-a-half . 

5. Once the tape has loaded, the computer again displays the 
asterisk and question mark (*?). Press </> <ENTER>. Now, 
the computer enters the Tiny Pascal Monitor and displays the 
memory size and the Monitor prompt, 

Tiny Pascal: 



r 
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Creating a Program 

When you load your Tiny Pascal System, you also load the sample 
program. To look at this program, type: 

EDIT <ENTER> 

You are now in the Tiny Pascal Editor. The Editor prompts you 
with a "greater than" symbol (>). Type: 

P* <ENTER> 

to display the program. Now, you could delete the program by 
entering the command D* . Then you could enter your own program. 
For now, however, just return to the Monitor by typing: 
Q <ENTER> 

You should see the Tiny Pascal: prompt again. 

Compiling the program 

_ To run a Tiny Pascal program, you must first compile the source 

code into a machine readable form called "p-code." If your Model 
*& y III has 32K or 48K of RAM, type: 

COMP <ENTER> 

or if you Model III is equipped with 16K of RAM, type: 

COMP -S <ENTER> 

This instruction tells the Compiler to create the p-code from the 
source code in the work file. The Compiler displays each line of 
the program as it processes the file. 

Had there been an error in the source code, the compilation would 
have aborted, and the System would have entered the Editor. 
However, there are no errors in the program on your cassette, so 
when the Compiler is finished, you should see the Tiny Pascal: 
prompt again. 
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:unning the Program 

ow that you have compiled the source code and created the 
-code, you can run the program by typing: 

RUN <ENTER> 

rocedure PGMl creates an interesting display on your screen, 
rocedure PGM2 is a video game. "Appendix F" tells you how to 
lay the game. 
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3/ The Monitor 

The Tiny Pascal Monitor gives run-time support to the entire 
system. It also lets you load and store your source and compiled 
programs, via the cassette tape. You invoke the Compiler and 
Editor from the Monitor, also. 

Monitor Commands 

After you load and start the system, you enter the Tiny Pascal 
Monitor. The Monitor prompts you with the message: 

Tiny Pascal: 
Now you can enter any of the Monitor commands, which are: 



EDIT 



COMP 



COMP -P 



COMP -S 



RUN 



Enters the edit mode. The Editor uses a "work 
file" in memory. If you haven't loaded a source 
file, the Editor creates the work file. 

Compiles the source code in the work file. The 
compiled "p-code" locates elsewhere in user 
memory. Should an error occur, the compilation 
aborts and the System enters the Editor at or near 
the error line. 

Compiles the source code in the work file but 
produces no p-code. This is useful for checking 
for syntax errors. 

Compiles the source code in the work file and 
overwrites the source code with p-code. This is 
useful for compiling large programs. 

Executes the program. Execution begins right 
away, if you have the p-code in the work file. 
The Compiler creates a new p-code before 
execution, if any of the following has occurred: 

You haven't compiled the source code. 

The last compilation caused an error. 

You have modified the source code since 
the last compilation. 



J % 



Radio /haek 



Model III 



TRS-BO 



Tiny Pascal 



SAVE filename 



LOAD filename 



CALL 



POKE 



Saves the current work file on the cassette and 
names the file filename . If you have the source 
code in the work file, the System saves only the 
source code. If you have no source code, but do 
have a valid p-code, the System saves the p-code. 

Loads a source code or p-code from a cassette 
file named filename . This command destroys the 
old source program and the p-code in the work 
file. 

Calls a machine language subroutine. The Monitor 
prompts you for the decimal address of the 
routine. 

Loads a byte into memory. The Monitor prompts you 
for the decimal memory address and byte value. 



Note that with the COMP -S command you may choose to overwrite 
your source code with the compiled p-code. Be sure to save*the 
source code before you issue such a command. 

The filename can have up to six characters . Remember that once 
you write a file to the tape, there is no way to check for its 
fi lename so you must load it with the exact name with which you 
stored it. If you accidentally type the wrong filename when 
loading a file, the Tiny Pascal System displays the name of the 
cassette file it read in, but may not return to the Monitor. If 
this happens, you must reset and reload the System. 
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4/ The Editor 

The Editor enables you to create and modify source programs. It 
is line-oriented, but since Pascal doesn't use line numbers, none 
are stored as part of the source code, although the Editor 
displays the current line number in the upper right hand corner 
of the screen. 

No line can have more than 130 characters. The total number of 
lines allowed is limited only by your Model Ill's memory, 
however, you cannot access lines over 999 directly by line 
number . 

Start the Editor by typing in: 
EDIT <ENTER> 

from the Monitor. The Editor prompts you with a "greater than" 
symbol (>). Now you can enter any of the Editor commands. 

You can enter each command in upper or lower case. Some commands 
also let you specify a number or a string of characters. Tne 
number can be any integer from 1 to 999. The string can 
have from 1 to 62 characters. 

If you enter an invalid command, the Editor responds with the 
message ILLEGAL. 



Editor Commands 



D 



Deletes the current line 



D number Deletes the number of lines specified, starting 
with the current line. 

D * Deletes the entire file. 

Fstrina Finds the first occurrence of the string , 

* starting with the current line. If you don't 

specify a string , the Editor uses the last 
string specified. 
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N 

Nnumber 

N* 

P 

Pnumber 

P* 
Q 

R 



U 

Unumber 

U* 

X 



Inserts lines after the current line. The Editor 
prompts you with a question mark (?). To end the 
insert mode, press <ENTER> on a blank line. 

Begins the insert mode at the top of the file. 
Moves down one line. 

Moves down the number of lines specified. 
Moves down to the last line of the file. 
Prints the current line. 

Prints the number of lines specified, starting 
with the current line. 

Prints the entire file. 

Returns to the Monitor after displaying the 
current file status. 

Replaces the current line. The System prompts you 
with the insert prompt, a question mark (? ) . 

I 
Displays the current file status, including the 
number of lines, number of bytes, file location in 
memory, and the number of free bytes remaining in 
user memory (rounded off to the nearest ten 
bytes ) . 

Moves up one line. 

Moves up the number of lines specified. 

Moves up to the first line of the file. 

Extends the current line. The System displays the 
current line and positions the cursor at the end 
of the line. You may add characters or backspace 
with the <left arrow) to make changes. 
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. number 

* 

<BREAK> 

<right arrow) 
<left arrow) 

<up arrow) 
<down arrow) 
<ENTER> 



Moves to the line number specified. 

Moves to the last line of the file. 

If pressed during execution of a program, causes a 
pause in the program. Pressing <BREAK> twice 
returns you to the Monitor. 

Tabs three spaces . 

Backspaces once for a space or three spaces for a 
tab. 

Moves up one line. 

Moves down one line. 

Ends the current line. If you type <ENTER) on a 
blank line, the Editor leaves the insert mode. 



Note: If a MEMORY FULL error occurs while you are editing or 
inserting, the source file is too big. You might be able to 
solve this problem by deleting excess spaces and tabs. 
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5/ The Compiler 

The Tiny Pascal Compiler translates your Pascal source code into 
an intermediate form called "p-code«. The runtime Monitor 
;«mS?iS e ? P-code into the actual machine commands. This 

SStp J™ ™ rUnS ° m f ° Ur t0 eight times faster than a similar 
tsAbic program. 

Compiling the program 

^^ r ^ Y ° U haVS created a source program with the Editor, or have 
loaded a source program from your cassette player, you can 
compile it xnto p-code by typing: 

COMP <ENTER> 

If you wish, you may follow COMP with one of two options. The 
;«f S h? P i° n u aU f eS the com Piler to generate no p-code. You can 

^h?<= Si!- °? eCk Y ° Ur syntax "hen you write programs. To use 
tms option, type: 

COMP -P <ENTER> 

The second option causes the generated p-code to locate over the 
vnn hf 2° Ur n source code in memory. You might use this option if 
you have a large program, because sometimes the program doesn't 
*£L ° !! e S f a( T e normall y assigned for p-code. The source code 
™™ aS % l e i in memorv is destroyed, so be sure to save your 
source code before you compile it. To use this option, .type: 

COMP -S <ENTER> 

™L dUri ? g c ° m P ilati °n of a program the Compiler runs out of 
^'Jnno? ? S J° re thS P~ code ' you may get a syntax error. If you 
Tr5 ™J!??- 2». an e f ror . in y° ur cod e^ this may be the problem. 
Try compiling the code with the -S option, or else try removing 
any unnecessary code. * UVi "y 

The Complier Specifications 

The Tiny Pascal language is a subset of standard Pascal, 
essentially, the syntax of Tiny Pascal is the same as the full 
: anguage. In Appendix D, you'll find syntax diagrams and notes 
-o help you with the language. 
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?tS?? WS ^ ntend . f ° r this manual to be an explanation of the 
ii?tr! ?!! s P ecia l features of Tiny Pascal, we won't present the 
Tf iou i;SS U ; 9e ' bu * rathe f review some of the essential points, 
in ITe «?:troduct!on"» r ° U9h miW ° f PMca1 ' S6e the *•<«•»<>.. 
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Appendix A/ Useful Addresses 



Address 
Decimal Hex 



192Q0 4B00 



19202 4B02 



19204 



19208 



19210 



19212 



19214 



19222 



19224 



4B04 



-9206 4B06 



4B08 



4B0A 



4B0C 



4B0E 



19216 4B10 



19218 4B12 



19220 4B14 



4B16 



-9223 4B17 



4B18 



■9225 4B19 



9226 4B1A 



.9227 4B1B 



Size 



2 bytes 



2 bytes 



2 bytes 



2 bytes 



2 bytes 



2 bytes 



2 bytes 



2 bytes 



2 bytes 



2 bytes 



2 bytes 



1 byte 



1 byte 



1 byte 



1 byte 



1 byte 



1 byte 



Function 



Starting address of user source program 



Ending address of source program 



Number of lines of the source program 
Ending address of user p-code 



Address of Compiler p-code 



Address of Monitor/ Editor p-code 



Address of currently running program 



Ending address of user memory 



Address of p-code interpreter 



Address of Compiler table 



Line number where compiler error occured 



Flag indicating compiler error 



Flag indicating to generate p-code 
reserved 



Monitor state 



Flag indicating p-code is executable 



Printer on/off flag 



— Radio /hack 



V' 



14 



Model III ^ • . 
— ■ TRS-80 ® Tiny Pascal 



Note: You may turn the printer flag on and off (1 and 0, 
respectively) and change the user memory size. Whenever you turn 
on the printer flag, it outputs all information to both the video 
display and the printer. You might want to change the memory 
size in order to protect your machine-language subroutines. You 
never should modify any of the other system controls. 
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4400 

4600 

4B00 

4B20 

4B70 

4CA0 

5780 

58A0 

67F0 



Appendix B/ Memory Map 



Entry points table for p-code interpreter 



Tiny Pascal p-code interpreter 



System Control Block 



Keyboard and video routines 



Cassette I/O routines 



Monitor/Editor p-code 



Compiler table 



Compiler p-code 



User memory for source code and p-code 
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Appendix c/ Sample Programs 



1 
2 
3 
4 
5 
6 
7 
8 
9 

10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
'32 
33 
34 



(* TINY PASCAL V-2.0 
VAR WHICH: INTEGER; 



SAMPLE PROGRAMS *) 



PROC PGM1; (*HILBERT CURVES 
(* LAST MOD 10/17/81 H. YUEN 

CONST N=4; H0=32; 

VAR I,H,X f Y,X0,Y0:INTEGER; 



BY 
*) 



K.M. CHUNG 04/79*) 



PROC GMOVE(DIR) 
BEGIN CASE DIr' 



OF 



Y:=Y 
X:=X 
Y:=Y 
X:=X 



TO 

TO 

DOWNTO Y-H 
DCWNTO X-H 



Y+H 
X+H 



DO 
DO 
DO 
DO 



1: BEGIN FOR 

2: BEGIN FOR 

3: BEGIN FOR 

4: BEGIN FOR 
END; 

PROC HILBERT(R,D,L,U,I); 

BEGIN IF I>0 THEN BEGIN 

HILBERT(D,R,U,L,I-1); GMOVE(R) 
HILBERT(R,D,L,U,I-1); GMOVE(D) 
HILBERT(R, D,L,U,I-1); GMOVE(L) 
HILBERT(U,L,D,R,I-1) END 

END; 



BEGIN (*PGM1*) 

WRITE ( 15 , 28 , 31 , 13 , • HILBERT CURVES 
FOR I:=l TO 12 DO WRITE(13); 
I:»0; H:=H0; X0:=H DIV 2; Y0:=X0- 
REPEAT I: =1+1; H:=H DIV 2; 

X0:=X0-H DIV 2; Y0:=Y0+H DIV 2- 
X:=X0+(I-1)*32; Y:=Y0+10; 
HILBERT(2,3,4,1,I) 
UNTIL I=N; READ(I) 
END; 



PLOT(X,Y,l); 
PLOT(X,Y,l); 
PLOT(X,Y,l); 
PLOT(X,Y,l) ; 



Y:=Y-1 
X:=X-1 
Y:=Y+1 
X:=X+1 



END 
END 
END 
END 



END 



OF ORDERS 1 TO 4 ' ) 
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ROC PGM2; (*BLOCKADE. BY K.M.CHUNG 4/26/79*) 
* LAST MOD 10/14/81 H. YUEN *) 
VAR I , J , SPEED , ABORT , BLNK : INTEGER ; 

SCORE, MARK, MOVE, CURSOR: ARRAY ( 1 ) OF INTEGER; 

PROC PSCORE; 
BEGIN WRITE < SCORE (0)#) ; 

MEMW(%4020) :=%3FFE; ( *SET CURSOR* ) 
WRITE(SCORE(l)#) END; 
PROC BLINK; 

VAR T, K, DELAY: INTEGER ; 
BEGIN T:=CURSOR(I)-MOVE(I) ; 
FOR K:=l TO 30 DO BEGIN 

FOR DELAY :=1 TO 160 DO; 

IF MEMW(T)=BLNK THEN MEMW( T) : =MARK ( I ) 

ELSE MEMW ( T ) : =BLNK 
END 
END; 



SGIN WRITE( 28, 31, 'SPEED (1-10) ') ; 
READ(SPEED#) ; SPEED : =SPEED*10+10 ; 
MARK (0):=' *'+•*• SHL 8 ; MARK (1):= , ( , + 1 )' SHL 8 ; 
BLNK: = ' .' + • 'SHL 8; 
SCORE(0):=0; SCORE(1):=0; 

REPEAT WRITE(15,28,31) ; (*TURN OFF CURSOR, CLEAR SCREEN*) 
FOR I: =9 TO 117 DO BEGIN 

PLOT (1,1,1); PLOT (I, 45,1) END; 
FOR I:=l TO 45 DO BEGIN 

PLOT (9,1,1); PLOT (10,1,1); 
PLOT( 116,1, 1) ; PLOT(117,I,l) END; 
CURSOR(O) :=%3C00+64*4+12; 
CURSOR(l) :=%4000-64*4-16; 

FOR J:=0 TO 1 DO MEMW (CURSOR( J ) ) : =MARK ( J) ; 
MOVE(0):=64; MOVE( 1 ) :=-64 ; 
I:=l; ABORT : =0 ; PSCORE; 

REPEAT UNTIL INKEYO0; (*HIT ANY KEY TO START*) 
REPEAT I: =1-1; 



FOR J:=l TO SPEED 
CASE INKEY OF 
'W' :MOVE(0) 
'D' : 
'X' 
'A' 
END; 
CURSOR(I) 



:MOVE(0) 
:MOVE(0) 
: MOVE ( ) 



DO 

=-64 
=2; 
=64; 
=-2; 



•O' :MOVE(l) 
■ ; ' :MOVE(l) 
• . * :MOVF.(l) 
•K 1 :MOVE(l) 



— 64i> 
=2; 
=64; 
=-2 



: =CURSOR ( I ) +MOVE ( I ) ; 
IF MEMW(CURSOR(I))=BLNK THEN MEMW ( CURSOR ( I ) ) : =MARK ( I ) 
ELSE BEGIN SCORE( 1-1 ) : =SCORE( 1-1 ) +1 ; 
ABORT :=1; BLINK END 
UNTIL ABORT 
UNTIL SCORE(1-I)>=10; READ(I) 



ZND: 
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87 BEGIN (*..MAIN..*) 

88 REPEAT 

89 WRITE (28, 31, 14, 13 ,13, 'SAMPLE PROGRAMS ', 13 ,13 ) ; 

90 WRITE ( 9," 1: PLOT HILBERT CURVES ', 13 ) • 

91 WRITE (9, '2: THE GAME OF BLOCKADE ', 13 ) ; 

92 WRITE(13,9,'9: QUIT', 13); 

93 READ (WHICH); 

95 UN?ir^ H i' 9 ™ EN roM1 ELSE " WHICH= ' 2 ' raEN «5M2 

96 END. 



97 1198 BYTES CODE. (72DF-778C) 



J 



— Radio /haelc 



19 



odel III 



Tiny Pascal 



Appendix D/ Syntax Diagrams and Notes 



"EMENT 



VARIABLE 



EXPRESSION 



PROCEDURE 
IDENTIFIER 




EXPRESSION 



-o 



T 



^L 



© 



J 



•(BEGIN) -f ►STATEMEN 



O 



'-(end)- 



--©— 



EXPRESSION 



STATEMENT 



»/elSeV ^STATEMEN 



a_L 




"(MEM) "\0 * EXPRESSION *>() J *V=) •* 



EXPRESSION 
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PROGRAM 



BLOCK 



O 



BLOCK 



^(const)- 



: 



IDENTIFIER 



•G> 



<D- 




INTEGER 



STRING 



HEX INTEGER 



IDENTIFIER 



■o 



i^y^^^RRAy)~*/( V-*- CONSTANT — *>() J-~*\Oy N 



L 



~T; J- UNTEGErW 



o 



IDENTIFIER 



-(func) — J 



-(begin)- 



STATEMENT 



+( ihrn identifier 



(end)- 



v ~ 



O 




1 



•CM 



BLOCK 



FACTOR 



"T 



♦ CONSTANT 



VARIABLE 



FUNCTION 
IDENTIFIER 



J?, 



dy-^ 



EXPRESSION 



♦{NOT) » 



FACTOR 



■O 



■©■ 



EXPRESSION 



<■> 



^MEM> — *\( J *" EXPRESS/ON *>( )J 



T~ 



IUIN .^— 



<^ 



V»x 
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EXPRESSS10N 



♦ SIMPLE EXPRESSION 



SIMPLE EXPRESSION 





G> 



T 



TERM 



FACTOR 



TT 



< ) f > ) f <> J f > = ) (< - 1 




SIMPLE EXPRESSION 



♦ TERM 



VARIABLE 



IDENTIFIER 



T 



- OR 



^i i i i — r^r 




•G> 



EXPRESSION 



•O 



CONSTANT 



^ 



v 



IDENTIFIER 



INTEGER 



♦ STRING 



♦ HEX INTEGER 



r 



DENTIFIER 



^( letter) - 



7" 



T 



{LETTER 



*M 



^-/o!GIt\. — ^ 

Radio /haelt 



22 



w 



Model III 



TRS-80 



Tiny Pascal 



INTEGER 




o 




.(WF) v 



STRING 



c 



HEXINTEGER 



—T \ DIGIT J " 



J 



(j} -p ^( character) ^ — "Cl/ 
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Syntax Notes 

Operators 

Use a colon and equal sign (:=) to assign variables and an 
equal sign (=) for conditional statements. 

Use a semi -colon (;) to separate statements, but not to end 
statements . 

You may use both arithmetic and logical (Boolean) 
expressions. OR, a Boolean operator, has the same 
precedence as the plus sign (+) and the minus sign (-), 
arithmetic operators. AND has the same precedence as the 
asterisk (*) and DIV. Both AND and OR have precedence over 
the following operators; the equal sign (=) , the "greater 
than" sign (>), and the "less than" sign (<). 

You must use parentheses, the symbols (), rather than 
brackets, the symbols []. 

Enclose comments within parentheses and asterisks, the 
symbols (* and * ) . 

Identifier usage 

You may use upper or lower case for your identifiers, and 
the Compiler recognizes the difference between upper and 
lower case. Each identifier must begin with a letter. You 
may follow this with letters or numbers, but only the first 
four characters are significant. 

You must declare your identifiers before you use them. If 

you declare them more than once, the last declaration 

applies. Do not declare the formal parameters of a 

procedure inside the procedure. 

The System passes parameters to procedures by value (the 
System makes a copy of the parameter for use by the 
procedure) . 
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The scope of a variable is within the procedure that defines it. 

Data types 

Tiny Pascal supports 16-bit signed integers and 
one-dimensional integer arrays. The subscripts for arrays 
begin at zero and are not checked for out of range at 
runtime. To assign values to the elements of the array, you 
must assign each member individually. 

Prefix hexadecimal constants with a percent sign (%). 
Example: %2400. 

Enclose strings within single quotation marks ('). When you 
use a string in an expression, a CONST declaration, or CASE 
label, it has the value of the Ascii code of the first 
character of the string. When you use a string in a WRITE 
statement, it has the value of the entire string. 
Input/Output 

The READ and WRITE statements are character-oriented. This 
means that you can input or output more than one character 
,_ with a single statement. To read or write a decimal number, 

^ follow the variable name with a number sign (#). To read or 

write the number as hexadecimal, follow the variable name 
with a per cent sign (%). Also, you must end integer or hex 
input by pressing <ENTER> or <SPACEBAR>. 

To begin writing on a new line, you must output the ASCII 
code for carriage return. In decimal, this is 13. In hex, 
it is %0D. For example, WRITE (13) sends a carriage return 
to the screen. The other screen functions, such as screen 
clear, use the same ASCII characters as BASIC. For example, 
WRITE (28, 31) clears the screen. 

Logical Operations 

In a logical expression such as IF, WHILE, or REPEAT, the 
condition is true if the least significant bit is one (in 
other words, if the expression evaluates to an odd number). 

The relational operator symbols, such as < and =, always 
produce a value of zero or one. 
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unctions , Procedures , and Operators 

hese are the built-in functions, procedures, and operators 
ure to include any required punctuation when typing them. 



Be 



.3S ( number ) 
eturns the absolute value of the number specified. 

J ALL ( address ) 

umps to a user-defined subroutine beginning at address . The 
subroutine must save all registers upon entry, restore all 

agisters on exit, and return from the subroutine with the 

allowing instructions : 

INC DE 
INC DE 
RET 

30MP ( addressl , address2 , number ) 

compares strings that are the specified number of bytes long, 
oeginning at addressl and address2 . If the strings are the 
same, the function returns a one. If not, it returns a zero. 

numberl DIV number2 

Performs truncated integer division of numberl by number2 . 

Example: 27 DIV 5=5. 

^ILL ( address , numberl , number 2 ) 

Fills a block of numberl bytes with the lower order byte value 

number2 , at the memory address specified. 

INKEY 

Returns the input character from the keyboard with no wait 

oeriod. It returns a zero, unless you have typed something. 

INP ( number ) 

Returns the input value from the port named by the number . 



MEM ( address ) 

Returns the byte value at the memory address specified. 

appear on either side of the assignment sign. 



It can 
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MEMW ( address ) . . 

Returns the 16 bit value at the memory address specified. Tne 
low order byte returns to the address , and the high order byte 
returns to address + 1. The value can appear on either side of 
the assignment sign. 

numberl MOD number2 

Performs modulo arithmetic of numberl on number2 . Example: 

27 MOD 2=2. 

MOVE ( address2 , addressl , number ) 

Moves a block of the specified number of bytes from memory 

addressl to memory address2 . 

OUTP( number l y number2 ) 

Outputs the byte value of number2 to the port named by the 

numberl . 

PLOT ( x , y , number ) 

Plots a graphics block on the screen at horizontal point x and 
vertical point y_. x can range from to 127, and y_ can 
range from to 47. The point is "set" if the number is odd 
and "reset" if it is even. 



POINT(x,y_> . . 

Tests whether the graphics block at the horizontal position x 
and the vertical position y_ is set. If the point is set, the 
function returns a one. If you reset the point, the function 
returns a zero. 

numberl SHL number2 

Logically shifts numberl left number2 bits. Example: 27 SHL 

2 = 108. 

numberl SHR number2 

Logically shifts numberl right number2 bits. Example: 27 

SHR 2=6. 

SQR( number ) 

Returns the square of number . 
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Appendix E/ Error Codes 

1: Error In Simple Type 

2: Identifier Expected 

3: "Program" Expected 

4: ")" Expected 

5: ":" Expected 

6: Illegal Symbol 

7: Error In Parameter List 

8: "Of" Expected 

9: "("Expected 
10: Error In Type 
11: "("Expected 
12: ")" Expected 
13: End Expected 
14: ";" Expected 
15: Integer Expected 
16: " = " Expected 
17: "Begin" Expected 
18: Error In Declaration Part 
19: Error In Field-List 

20: "."Expected *» 

21: "*" Expected C 

50: Error In Constant 

51: ": = " Expected 

52: "Then" Expected 

53: "Until" Expected 

54: "Do" Expected 

55: "To M /"Downto" Expected 

56: "If" Expected 

57: "File" Expected 

58: Error In Factor 

59: Error In Variable 

101: identifier Declared Twice 

102: Low Bound Exceeds High Bound 

103: Identifier Is Not Of Appr. Class 

1 04: Identifier Not Declared 

105: Sign Not Allowed 

106: Number Expected 

107: Incompatible Subrange Types 

108: File Not Allowed Here 

109: Type Must Not Be Real 

110: Tagfield Type Must Be Scalar 
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111: Incompatible With Tagfield Type 

112: Index Type Must Not Be Real 

113: Index Type Must Be Scalar 

114: Base Type Must Not Be Real 

115: Base Type Must Be Scalar 

1 1 6: Error In Type Of Standard Procedure Parameter 

117: Unsatisfied Forward Reference 

1 1 8: Forward Reference Type Identifier In Variable Declaration 

1 1 9: Forward Declared; Repetition Not Allowed 

1 20: Function Result Type Must Be Scalar 

121 : File Value Parameter Not Allowed 

1 22: Forward Declared Function, Repetition Not Allowed 

1 23: Missing Result Type In Function Declaration 

124: F-Format For Real Only 

1 25: Error In Type Of Standard Function Parameter 

1 26: Number Of Parameters Does Not Agree With Declaration 

1 27: Illegal Parameter Substitution 

1 28: Result Type Of Parameter Function Does Not Agree With Declaration 

129: Type Conflict Of Operands 

130: Expression Is Not Of Set Type 

131: Tests On Equality Allowed Only 

132: Strict Inclusion Not Allowed 

133: File Comparision Not Allowed 

134: Illegal Type Of Operand 

135: Type Of Operand Must Be Boolean 

136: Set Element Type Must Be Scalar 

1 37: Set Element Types Not Compatible 

138: Type Of Variable Is Not Array 

1 39: Index Type Is Not Compatible With Declaration 

140: Type Of Variable Is Not Record 

141 : Type Of Variable Must Be File Or Pointer 

142: Illegal Parameter Substitution 

1 43: Illegal Type Of Loop Control Variable 

144: Illegal Type Of Expression 

145: Type Conflict 

146: Assignment Of Files Not Allowed 

147: Label Type Incompatible With Selecting Expression 

148: Subrange Bounds Must Be Scalar 

149: Index Type Must Not Be Integer 

1 50: Assignment To Standard Function Is Not Allowed 

151 : Assignment To Formal Function Is Not Allowed 

152: No Such Field In This Record 

153: Type Error In Read 

1 54: Actual Parameter Must Be A Variable 

1 55: Control Variable Must Be Neither Formal Nor Non-Local 

156: Multidefined Case Label 

157: Too Many Cases In Case Statement 

1 58: Missing Corresponding Variant Declaration 
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159: 

160: 

161: 

162: 

163: 

164: 

165: 

166: 

167: 

168: 

169: 

170: 

171: 

172: 

173: 

174: 

175: 

176: 



Real Or String Tagfields Not Allowed 

Previous Declaration Was Not Forward 

Again Forward Declared 

Parameter Size Must Be Constant 

Missing Variant In Declaration 

Substitution of standard Proc/Func Not Allowed 

Multidefined Label 

Multideclared Label 

Undeclared Label 

Undefined Label 

Error In Base Set 

Value Parameter Expected 

Standard File Was Redeclared 

Undeclared External File 

(Not Relevant) 

Pascal Procedure Or Function Expected 

Missing Input File 

Missing Output File 



201 : Error In Real Constant: Digit Expected 
202: String Constant Must Not Exceed Source Line 
203: Integer Constant Exceeds Range 
204: (Not Relevant) 



250: Too Many Nested Scopes Of Identifiers 

251 : Too Many Nested Procedures And/Or Functions 

252: Too Many Forward References Or Procedure Entries 

253: Procedure Too Long 

254: Too Many Long Constants In This Procedure 

255: Too Many Errors In This Source Line 

256: Too Many External References 

257: Too Many Externals 

258: Too Many Local Files 

259: Expression Too Complicated 



300: Division By Zero 
301: No Case Provided For This Value 
302: Index Expression Out Of Bounds 
303: Value To Be Assigned Is Out Of Bounds 
304: Element Expression Out Of Range 



398: Implementation Restriction 

399: Variable Dimension Arrays Not Implemented 
1000: '.'Missing 
*001: Out Of Memory 



— Radio /hack 



30 



ft A 



Model III Tiny Pascal 
-TRS-80® 



Appendix F/ How to Play Blockade 

The sample program contains BLOCKADE (in procedure PGM 2) and is 

loaded with the Tiny Pascal system. The rules are the same as 

the amusement hall versions. Each player tries to box in the 
other . 

The game accepts commands from two players simultaneously. Each 
player moves using the keys illustrated below: 

Left-Side Player Right-Side Player 

<W>— up <0> — up 

lef t— <A> <D>--right lef t— <K> < ; >— right 

<X> — down < . > — down 

The speed is user selected between one and ten, with one being 
the fastest and ten the slowest. Three to four is about right 
for beginners . 
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Appendix G/ Converting Tiny Pascal to Diskette 

If you have a disk drive, you might want to convert your tape 
version of Tiny Pascal so that you can load and run it off a 
diskette. To convert the program, follow these steps: 

1. Insert a system diskette into Drive 0. Insert the Tiny 
Pascal cassette into the cassette recorder, and make sure it 
is completely rewound and the "Play" key is down. Press the 
Reset button on your Model III. 

2. After TRSDOS Ready apprears on your screen, type: 

TAPE (S=T D=D) <ENTER> 

Press <H> in response to the Cass? question. Your Model III 
will display: 

Device = Tape to Disk 

Press ANY key when Cassette ready 

3. Press <ENTER>. As the computer transfers the Tiny Pascal 
System to the diskette, two asterisks will flash in the 
upper right hand corner of the screen. When it is finished, 
TRSDOS Ready reappears. 

4 . Type : 

RELO PASCAL/CMD (ADD=6400) <ENTER> 

5. After TRSDOS Ready reappears, type: 
LOAD PASCAL/CMD <ENTER> 

6. When TRSDOS Ready reappears, type: 

DEBUG <ENTER> 

The screen fills with numbers and letters. This &s the 
DEBUG program. 
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7. Press <M> . DEBUG prompts you with M ADDRESS? = . Type 93B0 
and then press the spacebar once. Now type in the following 
numbers (with no spaces between): 

F3 21 00 64 11 00 44 01 B0 2F ED B0 C3 00 46 

Double check what you have entered, and if it is correct, 
press <ENTER>. If it is not correct, you can use the arrow 
keys to space over to the incorrect data, type in the 
correction, and press <ENTER>. 

8. Leave the DEBUG program by pressing <Q> for Quit. When 
TRSDOS Ready reappears, type: 

DUMP PASCAL (START=6400,END=93BE,TRA=93B0) <ENTER> 

Now to run the Tiny Pascal Program, simply type PASCAL <ENTER> 
from TRSDOS Ready. 
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TERMS AND CONDITIONS OF SALE AND LICENSE OF RADIO SHACK COMPUTER EQUIPMENT AND SOFTWARE 

PURCHASED FROM A RADIO SHACK COMPANY-OWNED COMPUTER CENTER. RETAIL STORE OR FROM A 

RADIO SHACK FRANCHISEE OR DEALER AT ITS AUTHORIZED LOCATION 

LIMITED WARRANTY 

I. CUSTOMER OBLIGATIONS 

A CUSTOMER assumes full responsibility that this Radio Shack computer hardware purchased (the "Equipment"), and any copies of Radio 
Shack software included with the Equipment or licensed separately (the "Software") meets the specifications , capacity, capabilities, 
versatility, and other requirements of CUSTOMER. , . 

B. CUSTOMER assumes full responsibility for the condition and effectiveness of the operating environment in which the Equipment ana bonware 
are to function, and for its installation. 

II. RADIO SHACK LIMITED WARRANTIES AND CONDITIONS OF SALE 

A For a period of ninety (90) calendar days from the date of the Radio Shack sales document received upon purchase of the Equipment RADIO 
SHACK warrants to the original CUSTOMER that the Equipment and the medium upon which the Software is stored is free ^o^^^J^ 
defects THIS WARRANTY IS ONLY APPLICABLE TO PURCHASES OF RADIO SHACK EQUIPMENT BY THE ORIGINAL CUSTOMER FROM 
RADIO SHACK COMPANY-OWNED COMPUTER CENTERS, RETAIL STORES AND FROM RADIO SHACK FRANCHISEES AND DEALERS AT ITS 
AUTHORIZED LOCATION The warranty is void if the Equipment's case or cabinet has been opened, or if the Equipment or Software has been 
subjected to improper or abnormal use. If a manufacturing defect is discovered during the stated warranty period, the defective Equipment 
must be returned to a Radio Shack Computer Center, a Radio Shack retail store, participating Radio Shack franchisee or Radio Shack dealer 
for repair along with a copy of the sales document or lease agreement. The original CUSTOMERS sole and exclusive remedy in the event of 
a defect is limited to the correction of the defect by repair, replacement, or refund of the purchase price, at RADIO SHACK S election and sole 
expense. RADIO SHACK has no obligation to replace or repair expendable items. 

B RADIO SHACK makes no warranty as to the design, capability, capacity, or suitability for use of the Software, except as provided in mis 
paragraph Software is licensed on an "AS IS" basis, without warranty. The original CUSTOMER'S exclusive remedy, in the event ot a 
Software manufacturing defect, is its repair or replacement within thirty (30) calendar days of the date of the Radio Shack sales document 
received upon license of the Software. The defective Software shall be returned to a Radio Shack Computer Center, a Radio Shack retail store, 
participating Radio Shack franchisee or Radio Shack dealer along with the sales document. 

C. Except as provided herein no employee, agent, franchisee, dealer or other person is authorized to give any warranties of any nature on Denait 

D Excep?as provided herein. RADIO SHACK MAKES NO WARRANTIES, INCLUDING WARRANTIES OF MERCHANTABILITY OR FITNESS FOR A 

PARTICULAR PURPOSE. .,*♦,♦ riicTnucD 

E. Some states do not allow limitations on how long an implied warranty lasts, so the above timitatton(s) may not apply to CUSTOMER. 

III. LIMITATION OF LIABILITY 

A. EXCEPT AS PROVIDED HEREIN, RADIO SHACK SHALL HAVE NO LIABILITY OR RESPONSIBILITY TO CUSTOM ?™ R c r P T E , R v S0 R v 
OR ENTITY WITH RESPECT TO ANY LIABILITY, LOSS OR DAMAGE CAUSED OR ALLEGED TO BE CAUSED D |R KTL^ 
"EQUIPMENT" OR "SOFTWARE" SOLD, LEASED, LICENSED OR FURN1SHE0 BY RADIO SHACK. INCLUDING. BUT NOT UIV TED 'TO. ANY 
INTERRUPTION OF SERVICE. LOSS OF BUSINESS OR ANTICIPATORY PROFITS OR CONSEQUENTIAL DAMAGES RESULTING FROM THE 
USE OR OPERATION OF THE' 'EQUIPMENT" OR "SOFTWARE*. IN NO EVENT SHALL RADIO SHACK BE LIABLE FOR LOSS OF PROF TS OR 
ANY INDIRECT ^^ SPECIAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF ANY BREACH OF THIS WARRANTY 'OR IN ANY ^MANNER 
ARISING OUT OF OR CONNECTED WITH THE SALE. LEASE. LICENSE, USE OR ANTICIPATED USE OF THE "EQUIPMENT" OR "SOFTWARE 

NOTWITHSTANDING THE ABOVE LIMITATIONS AND WARRANTIES, RADIO SHACK'S LIABILITY HER^ !» R ?! 

CUSTOMER OR OTHERS SHALL NOT EXCEED THE AMOUNT PAID BY CUSTOMER FOR THE PARTICULAR EQUIPMENT OR SOFTWARE 

INVOLVED 
B RADIO SHACK shall not be liable for any damages caused by delay in delivering or furnishing Equipment and/or Software. 
C No action arising out of any claimed breach of this Warranty or transactions under this Warranty may be brought more than two (2) years 

after the cause of action has accrued or more than four (4) years after the date of the Radio Shack sales document for the Equipment or 

D. Some states do not allow the limitation or exclusion of incidental or consequential damages, so the above limitation(s) or exclusion(s) may 
not apply to CUSTOMER. 

IV. RADIO SHACK SOFTWARE LICENSE 

RADIO SHACK grants to CUSTOMER a non-exclusive, pa.d-up license to use the RADIO SHACK Software on one computer. sub f ect to the following 

A™' 5 Except as otherwise provided in this Software License, applicable copyright laws shall apply to the Software. ICTnu - Q hllt nAt titlp tn 

B. Title to the medium on which the Software is recorded (cassette and/or diskette) or stored (ROM) is transferred to CUSTOMER, but not title to 

C. CUSTOMER may use Software on one host computer and access that Software through one or more terminals if the Software permits this 

D CUSTOMER shall not use. make, manufacture, or reproduce copies of Software except for use on one computer and as is specifically 

provided in this Software License. Customer is expressly prohibited from disassembling the Software. 
E CUSTOMER is permitted to make additional copies of the Software only for backup or archival purposes or if additional copies are required in 

the operation of one computer with the Software, but only to the extent the Software allows a backup copy to be made. However, for 

TRSDOS Software, CUSTOMER is permitted to make a limited number of additional copies for CUSTOMER S own use 
F CUSTOMER may resell or distribute unmodified copies of the Software provided CUSTOMER has purchased one copy of the Software tor eacn 

one sold or distributed. The provisions of this Software License shall also be applicable to third parties receiving copies of the Software from 

CUSTOMER. 
G. All copyright notices shall be retained on ail copies of the Software. 

V. APPLICABILITY OF WARRANTY 

A The terms and conditions of this Warranty are applicable as between RADIO SHACK and CUSTOMER to either a sale of the Equipment and/or 
Software License to CUSTOMER or to a transaction whereby RADIO SHACK sells or conveys such Equipment to a third party for lease to 
CUSTOMER 

B. The limitations of liability and Warranty provisions herein shall inure to the benefit of RADIO SHACK, the author, owner and/or licensor of the 
Software and any manufacturer ot the Equipment sold by RADIO SHACK. 

VI. STATE LAW RIGHTS 

The warranties granted herein give the original CUSTOMER specific legal rights, and the original CUSTOMER may have other rights which vary 
from state to state. 
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